Dr. Windows 3/dr win3.zip/dr win3/WINWORDS/WINE02BX.ZIP/LISP/MODES/FORTRAN.ELC

Text File | 1993-03-28 | 27KB | 263 lines

;;; compiled by @win386 on Sat Mar 13 14:31:25 1993
;;; from file c:/src/lucid-19.4/lisp/modes/fortran.el
;;; emacs version 19.3 Lucid.
;;; bytecomp version 2.08; 27-aug-92.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.

(if (and (boundp 'emacs-version)
     (or (and (boundp 'epoch::version) epoch::version)
         (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs19."))

(byte-code "└┬ç" ["version 1.28.7" fortran-mode-version nil] 1)
(defvar fortran-tab-mode-default nil "\
*Default tabbing/carriage control style for empty files in fortran mode.
t indicates that tab-digit style of continuation control will be used.
nil indicates that continuation lines are marked with a character in
column 6.")
(defvar fortran-do-indent 3 "\
*Extra indentation applied to `do' blocks.")
(defvar fortran-if-indent 3 "\
*Extra indentation applied to `if' blocks.")
(defvar fortran-structure-indent 3 "\
*Extra indentation applied to `structure', `union' and `map' blocks.")
(defvar fortran-continuation-indent 5 "\
*Extra indentation applied to `continuation' lines.")
(defvar fortran-comment-indent-style 'fixed "\
*nil forces comment lines not to be touched,
'fixed produces fixed comment indentation to fortran-comment-line-column
beyond fortran-minimum-statement-indent, and 'relative indents to current
fortran indentation plus fortran-comment-line-column.")
(defvar fortran-comment-line-column 0 "\
*Amount of extra indentation for text within full-line comments.")
(defvar comment-line-start nil "\
*Delimiter inserted to start new full-line comment.")
(defvar comment-line-start-skip nil "\
*Regexp to match the start of a full-line comment.")
(defvar fortran-minimum-statement-indent 6 "\
*Minimum indentation for fortran statements.")
(defvar fortran-comment-indent-char " " "\
*Single-character string inserted for Fortran comment indentation.
Normally a space.")
(defvar fortran-line-number-indent 1 "\
*Maximum indentation for Fortran line numbers.
5 means right-justify them within their five-column field.")
(defvar fortran-check-all-num-for-matching-do nil "\
*Non-nil causes all numbered lines to be treated as possible do-loop ends.")
(defvar fortran-blink-matching-if nil "\
*From a fortran `endif' statement, blink the matching `if' statement.")
(defvar fortran-continuation-string "$" "\
*Single-character string used for fortran continuation lines.
In fixed format continuation style, this character is inserted in
column 6 by \\[fortran-split-line] to begin a continuation line.
Also, if \\[fortran-indent-line] finds this at the beginning of a line, it will
convert the line into a continuation line of the appropriate style.
Normally $.")
(defvar fortran-comment-region "c$$$" "\
*String inserted by \\[fortran-comment-region] at start of each line in region.")
(defvar fortran-electric-line-number t "\
*Non-nil causes line number digits to be moved to the correct column as typed.")
(defvar fortran-startup-message t "\
*Non-nil displays a startup message when Fortran mode is first called.")
(defvar fortran-column-ruler " " "\
*String displayed above current line by \\[fortran-column-ruler].")
(defconst bug-fortran-mode "[e-mail]" "\
Address of mailing list for Fortran mode bugs.")
(defvar fortran-mode-syntax-table nil "\
Syntax table in use in Fortran mode buffers.")
(defvar fortran-analyze-depth 100 "\
Number of lines to scan to determine whether to use fixed or tab format style.")
(defvar fortran-break-before-delimiters t "\
Non-nil causes fortran-do-auto-fill breaks lines before delimeters.")
(byte-code "¼╤┴ ┬├─#ê┬┼╞#ê┬╟╚#ê┬╔╚#ê┬╩╚#ê┬╦╚#ê┬╠╚#ê┬═╬#ê┬╧╬#ê┬╨╤#ê┬╥─#ê┬╙─#ê┬╘╒#ê┴ç" [fortran-mode-syntax-table make-syntax-table modify-syntax-entry 59 "w" 13 " " 43 "." 45 61 42 47 39 "\"" 34 92 "/" 46 95 10 ">"] 4)
(defvar fortran-mode-map nil "\
Keymap used in fortran mode.")
(byte-code "äù┴ ┬├─#ê┬┼╞#ê┬╟╚#ê┬╔╩#ê┬╦╠#ê┬═╬#ê┬╧╨#ê┬╤╥#ê┬╙╘#ê┬╒╓#ê┬╫╪#ê┬┘┌#ê┬█▄#ê┬▌▐#ê┬▀α#ê┬ßα#ê┬Γα#ê┬πα#ê┬Σα#ê┬σα#ê┬µα#ê┬τα#ê┬Φα#ê┬Θα#êΩδ!¼â∞++äL-.∩δ∞\"ê≡+±≥∞$ê≡+≤⌠∞$ê≡+⌡÷∞$ê≡+≈°∞$ê≡+∙·∞$ê≡+√ⁿ∞$ê≡+²■∞$ê≡+ ü@∞$ê≡+üAüB∞$ê≡+üCüD∞$ê≡+üEüF∞$ê≡+üGüH∞$ê≡+üIüJ∞$ê≡+üKüL∞$ê≡+üMüN∞$ê≡+üOüP∞$ê≡+üQüR∞$ê≡+üSüT∞$ê≡+üUüV∞$ê≡+üWüX∞$ê≡+üYüZ∞$ê≡+ü[ü\\∞$ê≡+ü]ü^∞$ê≡+ü_ü`∞$ê≡+üaüb∞$ê≡+ücüd∞$ê≡+üeüf∞$ê≡+ügüh∞$ê≡+üiüj∞$ê≡+ükül∞$ê≡+ümün∞$ê≡+üoüp∞$ê≡+üqür∞$ê≡+üsüt∞$ê≡+üuüv∞$ê≡+üwüx∞$ê≡+üyüz∞$ê≡+ü{ü|∞$ê≡+ü}ü~∞$ê≡+üüÇ∞$ê≡+üüüé∞$ê≡+üâüä∞$ê≡+üàüå∞$ê≡+üçüê∞$ê≡+üëüè∞$ê≡+üïüî∞$ê≡+üìüÄ∞$ê≡+üÅüÉ∞$ê≡+üæüÆ∞$ê≡+üôüö∞$ê≡+üòüû∞$ê≡+üùüÿ∞$ê≡+üÖüÜ∞$ê≡+ü¢ü£∞$ê≡+ü¥ü₧∞$ê≡+üƒüá∞$ê≡+üíüó∞$ê≡+üúüñ∞$ê.-)∞ç" [fortran-mode-map make-sparse-keymap define-key ";" fortran-abbrev-start ";" fortran-comment-region "
" beginning-of-fortran-subprogram "" end-of-fortran-subprogram "" fortran-indent-comment "" mark-fortran-subprogram "\n" fortran-split-line "\n" fortran-reindent-then-newline-and-indent "" fortran-indent-subprogram "" fortran-window-create-momentarily "" fortran-column-ruler "" fortran-previous-statement "" fortran-next-statement "    " fortran-indent-line "0" fortran-electric-line-number "1" "2" "3" "4" "5" "6" "7" "8" "9" boundp fortran-mode-abbrev-table nil abbrevs-changed ac define-abbrev-table define-abbrev ";au" "automatic" ";b" "byte" ";bD" "block data" ";ch" "character" ";cl" "close" ";c" "continue" ";cm" "common" ";cx" "complex" ";df" "define" ";di" "dimension" ";do" "double" ";dc" "double complex" ";dp" "double precision" ";dw" "do while" ";e" "else" ";ed" "enddo" ";el" "elseif" ";en" "endif" ";eq" "equivalence" ";eW" "endwhere" ";ex" "external" ";ey" "entry" ";f" "format" ";fa" ".false." ";fu" "function" ";g" "goto" ";im" "implicit" ";ib" "implicit byte" ";ic" "implicit complex" ";ich" "implicit character" ";ii" "implicit integer" ";il" "implicit logical" ";ir" "implicit real" ";inc" "include" ";in" "integer" ";intr" "intrinsic" ";l" "logical" ";n" "namelist" ";o" "open" ";pa" "parameter" ";pr" "program" ";ps" "pause" ";p" "print" ";rc" "record" ";re" "real" ";r" "read" ";rt" "return" ";rw" "rewind" ";s" "stop" ";sa" "save" ";st" "structure" ";sc" "static" ";su" "subroutine" ";tr" ".true." ";ty" "type" ";vo" "volatile" ";w" "write" ";wh" "where"] 5)
(fset 'fortran-mode #[nil "└ ê    ½å┬├#ê╞╔\n!ê╦╠!ê═╦╬!ê╧╦╨!ê╤╦╥!ê╙╦╘!ê╒╦╓!ê╫╦╪!ê╞╦┘!ê═╦┌!ê═╦█!ê╞═▌▀ !êß\"π$╦σ!ê╦µ!ê╦τ!ê╦Φ!ê╦Θ!êσΩ !êδ∞!ç" [kill-all-local-variables fortran-startup-message message "Emacs Fortran mode %s.  Bugs to %s" fortran-mode-version bug-fortran-mode nil fortran-mode-abbrev-table local-abbrev-table set-syntax-table fortran-mode-syntax-table make-local-variable fortran-break-before-delimiters t indent-line-function fortran-indent-line comment-indent-hook fortran-comment-hook comment-line-start-skip "^[Cc*]\\(\\([^     \n]\\)\\2\\2*\\)?[     ]*\\|^#.*" comment-line-start "c" comment-start-skip "![     ]*" comment-start require-final-newline abbrev-all-caps indent-tabs-mode abbrev-mode 72 fill-column use-local-map fortran-mode-map "Fortran" mode-name fortran-mode major-mode fortran-tab-mode fortran-comment-line-column fortran-minimum-statement-indent fortran-column-ruler fortran-tab-mode-string fortran-analyze-file-format run-hooks fortran-mode-hook] 4 "\
Major mode for editing fortran code.
Tab indents the current fortran line correctly.
`do' statements must not share a common `continue'.

Type `;?' or `;\\[help-command]' to display a list of built-in abbrevs for Fortran keywords.

Key definitions:
\\{fortran-mode-map}

Variables controlling indentation style and extra features:

 comment-start
    Normally nil in Fortran mode.  If you want to use comments
    starting with `!', set this to the string \"!\".
 fortran-do-indent
    Extra indentation within do blocks.  (default 3)
 fortran-if-indent
    Extra indentation within if blocks.  (default 3)
 fortran-structure-indent
    Extra indentation within structure, union and map blocks.  (default 3)
 fortran-continuation-indent
    Extra indentation applied to continuation statements.  (default 5)
 for